mock exercise

library(tidyverse)
library(plotly)
lq <- read_csv("life_quality.csv")

1. plot a scatterplot

• x-axis: gdp_per_capita
• y-axis: life_expectancy
• mode: markers

2. set colors by continents

• make sure you have two separate arguments

• one to specify which column to use for coloring

• the other to specify the colors

• You may use this pallete for colouring continents.

  colors <- c("#e41a1c", '#377eb8', '#4daf4a', '#984ea3', '#ff7f00')

3. set size

• size by population

• adjust size

• you may consider adding the following arguments in plot_ly()

  fill = ~'',
  marker = list(
    sizemode = "diameter",
    opacity = 0.6,
    line = list(
      width = 1, 
      color = 'white'
    )

4. assign texts to each point

• show country name, gdp, life expectancy, and population
• remember to put line breaks
• for gdp and life expectancy, round the numbers to 2 digits

5. add labels

• add an appropriate title

• add an appropriate legend

• add an appropriate x and y axis

• for adding the source, you may consider using the code below:

  annotations <- list(
    x = 1.2, y = -0.1,
    text = "Source: World Bank",
    showarrow = F, xref = "paper", yref = "paper",
    xanchor = "right", yanchor = "auto", xshift = 0, yshift = 0,
    font = list(size = 12)
  )

6. fine-tune, complete the plot

• make sure the x-axis is log-transformed
• make sure the sizes of the symbol in the legend are constant
• improve the plot, if you would like.